<pre>-- MODE = "eDITEUR"on openBackground  show menubar  hide msg box  pass openBackgroundend openBackgroundon arrowKey direction  if direction is "right" or direction is "down" then go to next cd  if direction is "left" or direction is "up" then go to prev cdend arrowKeyon enterKey  doToSelectedFields cd,setStyle,transparentend enterKeyon tabKey  alignQuestionPartsend tabKeyon exitField  set lockText of the target to trueend exitFieldon closeField  set lockText of the target to trueend closeFieldon mouseDown  toComputer  global doFld  if the target is "card field" && quote & "question" & quote   or the target is "card field" && quote & "choix multiple A" & quote   or the target is "card field" && quote & "choix multiple B" & quote   or the target is "card field" && quote & "choix multiple C" & quote   or the target is "card field" && quote & "choix multiple D" & quote  then    -------------------------------------------------------------------------    if the style of the target is transparent then      put getPopMenuItems("editFields") into popMenuItems      put popMenu(the mouseLoc,popMenuItems) into selectedMenuItem      if selectedMenuItem is 0 then exit mouseDown      set itemDelimiter to ";"      put item selectedMenuItem of popMenuItems into doFld      if doFld is "aligner" then alignQuestionParts      if doFld is "editer" then set lockText of the target to false      if doFld is "deplacer" or doFld is "agrandir" or doFld is "retrecir"      then doToSelectedFields cd,setStyle,rectangle      if doFld is "personaliser" then        put the target into targetID        put the short name of the target into targetName        put the textFont of the target into theFont        put the textStyle of the target into theStyle        put the textAlign of the target into theAlign        put the textSize of the target into theSize        put the textHeight of the target into theHeight        pushCard        go to stack pile("TextStyles") in a new window        updateTextStylesCard theFont,theStyle,theAlignment,theSize,theHeight        put targetName into fld "theTarget"        put targetID into bg btn "OK"      end if      if doFld is "normaliser" then        set rect of cd fld "Question" to 3,25,507,45        set rect of cd fld "Choix multiple A" to 52,50,507,70        set rect of cd fld "Choix multiple B" to 52,75,507,95        set rect of cd fld "Choix multiple C" to 52,100,507,120        set rect of cd fld "Choix multiple D" to 52,125,507,145        set rect of cd button "A=" to 14,50,52,70        set rect of cd button "B=" to 14,75,52,95        set rect of cd button "C=" to 14,100,52,120        set rect of cd button "D=" to 14,125,52,145        set textFont of cd fld "Question" to "Monaco"        set textFont of cd fld "Choix multiple A" to "Geneva"        set textFont of cd fld "Choix multiple B" to "Geneva"        set textFont of cd fld "Choix multiple C" to "Geneva"        set textFont of cd fld "Choix multiple D" to "Geneva"        set textSize of cd fld "Question" to 12        set textSize of cd fld "Choix multiple A" to 12        set textSize of cd fld "Choix multiple B" to 12        set textSize of cd fld "Choix multiple C" to 12        set textSize of cd fld "Choix multiple D" to 12      end if    end if    -------------------------------------------------------------------------    if the style of the target is rectangle then      if doFld is "deplacer" then        repeat until the mouse is up          set lockScreen to false          set the topLeft of the target to the mouseLoc          set right of cd btn "A=" to left of cd fld "Choix multiple A"          set right of cd btn "B=" to left of cd fld "Choix multiple B"          set right of cd btn "C=" to left of cd fld "Choix multiple C"          set right of cd btn "D=" to left of cd fld "Choix multiple D"          set top of cd btn "A=" to top of cd fld "Choix multiple A"          set top of cd btn "B=" to top of cd fld "Choix multiple B"          set top of cd btn "C=" to top of cd fld "Choix multiple C"          set top of cd btn "D=" to top of cd fld "Choix multiple D"        end repeat      end if      if doFld is "agrandir" or doFld is "retrecir" then        put the left of the target into x1        put the top of the target into y1        repeat until the mouse is up          set lockScreen to false          put item 1 of the mouseLoc into x2          put item 2 of the mouseLoc into y2          set the rect of the target to x1,y1,x2,y2          alignQuestionParts        end repeat      end if    end if    -------------------------------------------------------------------------  end ifend mouseDownon newCard  mode redacteur  pass newCardend newCard</pre>